<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% AutoID=reqNum(request("ID")) '投票選項和計數 sql_item="select Item_Counter,Item_Name from Vote_Item where AutoID =" & AutoID set rs_item=conn.Execute(sql_item) TotalCount=0 do while not rs_item.eof TotalCount=rs_item("Item_Counter")+TotalCount rs_item.movenext if rs_item.eof then exit do loop On Error Resume Next %>

<% rs_item.movefirst do while not rs_item.eof percent = round((rs_item("Item_Counter")*100)/TotalCount) Item_Name=rs_item("Item_Name") if len(Item_Name)>8 then Item_Name=left(Item_Name,7) & "…" %> <% rs_item.movenext if rs_item.eof then exit do loop set rs_item=nothing %> 目前投票狀況   <%=Item_Name%> <%=Percent*1%>%